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I. INTFODUCTICN 

This section of the documentation concerns itself with 
the environment which surrounded the design, 
implementation and installation of NASIS. It describes 
how the various components of NASIS fit together and 
how the system is to be installed and modified. 

It is assumed that any individual involved in the 
modification or installation of NASIS has a complete 
working knowledge of TSS as well as PL/I. 

II. ENVIBONMENT 

NASIS is a data management system which runs under 
TSS/360 cn the IBM System 360 Model 67. 

A. TSS/360 

TSS/360 is a programming system that gives 
multiple simultaneous user access to the computer 
facilities. The full svstem is explained in other 
documents which are published by IBM. Some of 
these are: 

•Concepts and Facilities, • C28-2003 

•Terminal User’s Guide,* GC28-2017 

•Command System User’s Guide,* C28-2001 

•System Messages,* GC28-2037 

• FL/I Programmer’s Guide,* GC28-2049 

•PI/I Language Reference Manual,* GC28-2045. 

The above list is by no means comprehensive. It 
merely indicates the most commonlv used of the 
available manuals. 

B. Standard TSS-ID Profile 

The current mode of operation uses four prime 
TSS-Its which control and operate NASIS. Each of 
these TSS-IDs serves a fundamental and important 
role in the operation of NASIS. These TSS-IDs are 
SALISB**, SAEBA***, SACNNEB* , and SAMTT***. 

SALISB’s responsibility is to contain and maintain 
the source and object code of all NASIS modules. 
It also maintains the libraries from which NASIS 
is executed as well as other supporting data sets. 
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In ether words, the entire physical entity known 
as NASIS is maintained by SALISR. The person 
responsible for maintaining SALISR is responsible 
for the integrity of BASIS* 

SATE A is the Data Base Administrator * s TSS-ID, 
This It contains a library for all user written 
modules, such as file loading and formatting 
routines. This library is also used to contain 
all messages and explanations pertaining to 
specific data bases. The data set NASIS. USERIDS, 
which contains a list of all JOINed NASISIDs, is 
also maintained here. 

SAORNER is the owner of all the files which are to 
be used with BASIS. This TSS-ID is maintained by 
the tata Base Administrator. The integrity and 
the use of all data bases is the responsibility 
of the DBA (Data Base Administrator) • 

SAMTT is the TSS-ID under which operation in MT/T 
mode is possible. There is only one such 
TSS-ID. This is practical because the one MT/T 
TSS-ID will permit many people to use NASIS 
concurrently, and also because this ID must have a 
special privilege class because of system 

limitations. 

Any number of other TSS-IDs can and do exist and 
each of these can run NASIS in stand-alone mode. 

In order to create a common environment, 
compatable with NASIS, for the various TSS-IDs 
which may exist, two executable data sets have 
been created: THE. USERID. CREATION and 

THE. USERID. ANALTSIS. These data sets are owned by 
SALISR. Therefore, for any new TSS-ID on which 
this environment is desired, the following 
commands must be executed: 

_SHARE THE. USERID, SALISR, THE. USERID 
“BACK THE. USERID. CREATION 
(wait for completion) 

(if you »ish to review your TSS-ID) 

^EXECUTE THE. USERID. ANALYSIS 

Please refer to Appendix A for the details of 
THE. USERID. ANALYSIS and Appendix B for the details 
of THE. USERID. CREATION. 

C. NASIS System Structure 
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Because of the increasing size and complexity, as 
well as the prospect for distribution of the NASIS 
system, it was decided to structure the NASIS data 
sets. This structuring was approached with the 
functions of system backup and restore in mind. 
The structure is explained below and is currently 
in effect. 

A private VAM disk pack (LABEL=SAFETY) has been 
incorporated as the foundation for this 
structure. This disk pack will function as the 
on-line residence volume for NASIS. It will 
contain everything necessary to bring up NASIS at 
any other TSS installation. The backup copies of 
all actively used NASIS data sets, as well as the 
master copies of all non-activelv used NASIS data 
sets, from SALISR, SADBA, and SAHTT will be on 
this volume. The data sets currently defined for 
residence on SAFETY are: 

LINK. N ASISLIB (BACKUP) 

NASIS. NASYS1IB (BACKUP) 

NASIS. MTTLIE (BACKUP) (FROH: SAHTT) 

NASIS. DEALIB (BACKUP) (FBOH: SADBA) 

NASIS. USER JOIN (BACKUP) 

NASIS. SA1ISB. USEHLIB (BACKUP) 

NASIS. SAHTT. USEBLIB (BACKUP) (FROH: SAHTT) 
NASIS. SOURCE. module (HASTER) 

NASIS. SOURCE. LISRHAC (BACKUP) 

IINK. SOURCE. module (HASTER) 

NASIS. ESOURCE (BACKUP) 

NASIS. RINDEX (BACKUP) 

NASIS. UTILITYS (BACKUP) (FHOH:SAUTY) 

NASIS. ANALYSIS (BACKUP) 

NASIS. CREATION (BACKUP) 

NASIS. USERIES (BACKUP) (FROH: SADBA) 

This structure also provides a simplified, 
efficient, flexible method of NASIS backup and 
restore, i.e., to use the TSS command DHPRST to 
dump cr restore the entire disk pack. 

None of the data sets on disk pack SAFETY are 
PERHITted; therefore, they cannot be accessed by 
anyone but their owner, TSS userid SALISR. The 
data sets necessary for the use and maintenance 
of NASIS and its files are all maintained in 
public storage under TSS userid SALISR. Data 
sets USER JCI N , and NASISLIB are PERHITted to all 
users with read-only access. These are the only 
data sets necessary for the normal use of NASIS. 

The remaining data sets, NASYSLIB, RSOURCE, 
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RINDEX , THE. USERID. CREATION, THE USERID, ANALYSIS , 
and all SOURCE data sets (including 
SCUSCE. LISRMAC) are PERMITted to the system 
implementors with read-only access so that they 
may modify and test the system (i.e., these data 
sets should be SHABEd from SALISR) • 

The contents and functions of the NASIS data sets 
are as follows: 

NASISLIB(O) - the job library which contains the 
IINKEDITed stand-alone version of NASIS and 
the NASIS message file. Upon thorough 
testing, this library is copied to SAMTT as 
the new MTT system. 

LINK. NASISLIB - the backup copy of NASISLIB(O). 

NASYSIIB(O) - the job library which contains the 
non-LINKEDITed stand-alone version of the 
NASIS and the NASIS system message file. 
This data set should be used only by system 
implementors for testing new or modified 
modules. 

NASIS. NASYSLIE - the backup copy of NASYSLIB(O). 

NASIS. MTTLIB - the backup copy of MTTLIB (0) • From 
SAMTT. 

NASIS. DBALIE - the backup copy of DBALIB (0) • From 
SADBA. 

USERJCIN - the input command stream for creatinq 
the appropriate BUILTINs, PROCDEFs and 
messages necessary to allow a TSS userid to 
function as a NASIS data base user. It also 
provides shared access to the necessary job 
libraries and PEBEITted data bases. 


NASIS. USERJCIN - the backup copy of USERJOIN, 


NASIS. SALISR. USEPLIB 

- the backup 

copy 

of 

the 

USERIIB 

from 

TSS-ID salisr. 

This 

library 

contains 

all 

the procdefs 

necessary 

to 

maintain 

NASIS 

and SALISR. 




NASIS. SAMTT. OSEBLIB 

- the backup 

copy 

of 

the 

USERLIE 

from 

TSS-ID SAMTT. 

This 

library 

contains 

all the procdefs necessary 

to 

run 

NASIS in 

MTT mode and maintain 

SAMTT. 



SOURCE. module 

- the 

temporary copy 

of the 

source 
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code for a NASIS module. It should he shared 
and copied by system implementors to serve as 
a basis for modifications, (These datasets 
cnly exist while actually beinq modified,) 

NASIS. SOURCE. module - the master copy of the 
source code for a BASIS module, 

SOURCE. 1ISRMAC - the working copy of the PL/I 
macro library, containing all of the 

preprocessor components, as well as any other 
standard sections of coding included into any 
cf the BASIS nodules. 

NASIS. SOURCE. 1ISRMAC - the backup copy of the 
BASIS PI/I macro library. 

LINK. SOURCE. module - the master copy of the source 
code for the modules required for 
linkediting. 

SSOURCE - the working copy of the source portion 
of the NASIS assembler language macro 
library. 

NASIS. SSOURCE - the backup copy of RSOURCE. 

RINDEX - the working copy of the index to the 
NASIS assembler lanquaqe macro library 
(RSOURCE) . 

NASIS, RINDEX - the backup copy of RINDEX. 

NASIS. UTILITYS - the backup copy of the UTILITYS. 
From SACTY. 

THE. USERID. ANALYSIS * the working copy of the data 
set which is executed to yield the current 
TSS status of a given TSS-ID. 

NASIS. ANALYSIS - the backup copy of 

THE. USERID. ANALYSIS. 

THE. USERID. CREATION - the workinq copy of the data 
set which is executed to create a standard 
userid. 

NASIS. CREATION - the backup copy of 

THE. US ERIC. CREATION. 

NASIS. USERIDS - the backup copy of NASIS , USERIDS . 
From SAEEA. 
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D. NASIS System Procedures 

This section lists the procedures used for the 
maintenance of NASIS: 

1. tINKALL 

PRCCDEE LINKAIL 
EISPLAY • SUPPORT SYSTEM * 

1INKSUFE 

EISPLAY • RETRIEVAL SYSTEM 1 
IINKFET 

EISPLAY ■ MAINTENANCE SYSTEM* 

IINKMAIN 

EISPLAY * PRINT MONITOR * 

IINKPRNT 

EISPLAY * REST OF THE SYSTEM* 

IINKREST 

2. IINKMAIN 

PROCEE5 IINKMAIN 
DEFAULT LINKWBSG=N 

VV LINK. SOURCE. MAINTANO, SOURCE. MAINTANO 
VV LINK. SOURCE. MAINTAIN , SOURCE. MAINTAIN 
EDEF N ASYSLIB, VP, NASYSLIB (0) ,,,,,,OLD 
EDEF MAINTANO, VP, MAINTANO 
ERASE MAINTANO 

DDE? MAINTANO ,VP,HAINTAN0,,,,,, NEW, , TIU 
EISPLAY * INCLUDING* 

INK MAINTANO ,Y,MAINTAN0,,N,N,N 
FEL NASYSLIE 

EDEF NASISLIB, VP, NASISLIB (0) ,,,,,, OLD 
ERASE NASISLIB (0) (MAINTAIN) 

DISPLAY • COMBINING * 

INK MAINTAIN, Y, NASISLIB, ,N,Y,Y 
BEI MAINTANO# NASISLIB 
ERASE MAINTANO 

PR LIST. MAINTAIN (0) , ,, EDIT, Y 
ERASE SOURCE. MAINTANO 
ERASE SOURCE. MAINTAIN 

3. IINKOUT 

PROCDEF LINKCUT 
FARAM $G1,$02 
RELEASE EACKUPDD 

IF *$02* = * * ; ERASE LINK. SOURCE. $0 1 ; - 

EEEF E ACKUPDD, VI, LINK. SOURCE. $01, DISP=NEW,- 
UNIT= (DA ,2314) ,VOLUHE= (, SAFETY) 

VV SOURCE. $01, LINK. SOURCE. $01 
IF ’$02* -»= * * ; ERASE LINK. $01;- 
DDS? BACKUPDD,$02 ,LI NK. $0 1 , DISP=NEW , - 
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UNIT=(DA,2314) ,VOLUHEMr SAFETY) 

VV $01(0) , LINK. $0 1 
RELEASE EACKUPDD 

4. LINKPBNT 

PROCDEE LINKPBNT 
DEFAULT LINKNHSG=N 

VV LINK, SOURCE. PRINTSO, SOURCE, PRINTSO 
VV LINK. SOURCE. PBI NTPJON, SOURCE. PRINTBON 
IDEF N AS YSL IB, VP, NASYSLIB (0) , , , , , ,OLO 
DDE? PRINTSO, VP, PRINTSO 
ERASE PRINTSO 

DDEF PRINTSO, VP, PRINT SO,,, ,,,NEN, ,TLU 
DISPLAY « INCLUDING* 

INK PRINTSO, Y, PRINTSO, ,N,N,N 
BEL NASYSLIE 

DDE? NASISLIB,VP,NASISLIB (0) ,,,,,, OLD 
ERASE N AS ISLIB (0) (PRINTBON) 

DISPLAY * CCBBINING * 

LNK PRINTBON, Y, NASISLIB, ,N,Y,Y 
BEL PRINTSO, NASISLIB 
ERASE PRINTSO 

PRINT LIST. PRINTBON (0) ,,,EDIT,Y 
ERASE SOURCE. PRINTSO 
ERASE SCURCE. PRINTBON 

5. 1INKREST 

PROCDEE LINKREST 
ERASE NASISLIB (0) (NASISX) 

CCS NASYSLIB (0) (NASISX) , NASISLIB (0) 
ERASE NASISLIB (0) (PTS11X10) 

CDS NASYSLIB (0) (RTS11X10) , NASISLIB (0) 
ERASE NASISLIB (0) (NASISPRO) 

CDS NASYSLIB (0) (NASISPRO) , NASISLIB (0) 
ERASE NASISLIB (0) (LISRBLF) 

CDS NASYSLIB (0) (LISRBLF) , NASISLIB (0) 
ERASE NASISLIB (0) (BDBPRNTB) 

CCS NASYSLIB (0) (RDBPRNTR) , NASISLIB (0) 
ERASE NASISLIB (0) (BDBACCUB) 

CDS NASYSLIB (0) (RDBACCUS) , NASISLIB (0) 
ERASE NASISLIB (0) (BUSEBID) 

CDS NASYSLIB (0) (ROSERID) , NASISLIB (0) 
ERASE NASISLIB (0) (STATIC) 

CDS NASYSLIB (0) (STATIC) , NASISLIB (0) 
ERASE NA SISLIB (0) (TRNSCT) 

CDS NASYSLIB (0) (TRNSCT) , NASISLIB (0) 
ERASE NASISLIB (0) (TRNSCT#) 

CCS NASYSLIE (0) (TRNSCT#) , NASISLIB (0) 
ERASE NASISLIB (C) (RDBVS) 

CDS NASYSLIB (0) (RDBVS) , NASISLIB (0) 

ERASE NASISLIB (0) (RDBBLF) 
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CDS NASYSLIB (0) (BDBMLF) , NASISLIB (0) 
EBASE NASISLIB (0) (RDBDFIVE) 

CDS NASYSLIB (0) (RDBDRIVE) , NASISLIB (0) 

6. tINKRET 

PROCDEF LINKBET 
EEEADIT LINKNHSG=N 

VV LINK* SOURCE. RETRIEVL , SOURCE* RETRIEVL 
VV LINK. SODBCE* RETRIEVO, SOURCE. RETRIEVO 
IDEE NASYSLIB, VP ,NAS YSLIB (0) ,,,,,,OLD 
DDEF RETBIE VO , VP ,BETBIEV0 
ERASE RETRIEVO 

DDE? RETBIE VO, VP, RETRIEVO,, ,,,,NE»,,TLO 
DISPLAY • INCLUDING* 

INK RETRIEVO , Y , RETRI EVO , , N, N, N 
BEL NASYSLIB 

DDEF NASISLIB, VP, NASISLIB (0) ,,,,,,OLD 
EBASE NASISLIB (0) (BETRIEVL) 

DISPLAY * COMBINING* 

INK RETRIEVL, Y, NASISLIB, ,N,Y,Y 
BEL RETRIEVO, NASISLIB 
EBASE RETRIEVO 

PRINT LIST* RETRIEVL (0 ) , , , EDIT, Y 
ERASE SOURCE. RETRIEVL 
ERASE SOURCE. RETRIEVO 

7. LINKSUPE 

PROCDEE LINKSUPP 
DEFAULT LINKSMSG^N 

VV LINK. SOURCE. SUPPORT, SOURCE. SUPPORT 
VV LINK. SOURCE. SUPPORTO, SOURCE. SUPPORTO 
DDEF NASYSLIB, VP, NASYSLIB (0) *,,,,, OLD 
DDEF SUFEORTO,VF, SUPPORTO 
ERASE SUPPORTO 

DDEF SOFPCRTO, VP, SUPPOBTO , , , ,,,NEH,,TLU 
DISPLAY * INCLUDING* 

INK SUFFCRTO,Y,SUFP05TO,,N,N,N 
FEL NASYSLIB 

DDEF NASISLIB, VP, NASISLIB (0) ,,,,,, OLD 
ERASE NASISLIB (0) (SUPPORT) 

DISPLAY • COMBINING* 

INK SUPPORT, Y, NASISLIB, ,N,Y,Y 
REL SUPPORTO, NASISLIB 
ERASE SUPPORTO 

PRINT LIST. SUPPORT (0) ,,,EDIT,Y 
ERASE SOURCE. SUPPORT 
ERASE SOURCE. SUPPORTO 

8. NASISASM 


PROCDEF NASISASM 
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PARAM $01, $02 

VV NASIS. SOURCE. $01, SOURCE. $01 

CDEF ASMMAC, VI, ASMMAC(O) ,DISP=OLD 

tCEF ASMNDX, VS, ASMNDX (0) ,DISP=OLD 

CDEF F SOURCE, VI, RSOURCE, DISP=OLD 

CDEF RINDEX,VS,RIRDEX,DISP=OLD 

CDEF ASMLIB, VP, MODLIB (0) ,OPTION=JOBLIB ; - 

ERASE MODLIB (0) ($01) 

EISPLAY * (ASSEMBLY INITIATED $01)* 

ASM $01,1, (ASMMAC, ASHNDX, RSOURCE ,RINDEX) , 

N,N,Y,Y,N,N,Y,Y 

PBINT LIST. $01(0) ,,, EDIT, Y 

RELEASE ASMLIB 

RELEASE ASMMAC 

RELEASE ASHNDX 

RELEASE BSOUBCE 

RELEASE EINDEX 

CSS? SOURCE. $01 

POD? MODLIB (0) ,Y,Y, $01 

9. NASISASX 

PBOCDEF NASISASX 
PABAM $01, $02 

VV NASIS. SOURCE. $01, SOURCE. $01 

CDEF ASMMAC, VI, ASMMAC (0) ,DISP=OLD 

CDEF ASMNDX, VS, ASHNDX (0) ,DISP-OLD 

CDEF ASMLIB, VP, HODLIE (0) ,OPTION=JOBLIB? - 

ERASE MODLIB (0) ($01) 

DISPLAY '(ASSEMBLY INITIATED $01)' 

ASM $01 ,Y, (ASMMAC, ASMNDX) ,,N,N,Y,Y,N,N,Y,Y 

PRINT LIST. $01 (0) ,,,EDIT,Y 

RELEASE ASMLIB 

RELEASE ASMMAC 

RELEASE ASMNDX 

DSS? SOURCE ♦ $01 

FOD? MODLIB (0) ,Y,Y, $01 

10. 8ASISIN 

PFOCDEF NASISIN 
PARAM $01 
ERASE SOURCE. $01 
VV NASIS. SOURCE. $01, SOURCE. $01 

11. NASISOUT 

PROCDEF NASISOUT 
PARAM $C 1 , $02 
RELEASE EACKUPDD 

IF '$02 ' = ' * ; ERASE NASIS. SOURCE. $0 1 ; - 

DDEF BACKOPDD, VI, NASIS. SOURCE. $0 1 , DISP=NEW, - 
UNIT= (DA , 23 1 4) ,VOLUME= (, SAFETY) 
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VV SOURCE* $C1,NASIS. SOURCE* $01 
IE * $02 • -»= • 1 ; ERASE NASIS. $01?- 
EDEF BACKUPDD, $02,NASIS. $0 1 , DISP=NEW , - 
0NIT= (DA, 23 1 4) ,VOLUHE= (, SAFETY) 

IF * $02 • -= •• 6 ( »$0V » • MODLIB * | *$01» = 
* NASYSLIE * ) ;VV $C1 (0) f NASIS.SO 1 
IF f $02 * -= * ' 6 »$01» -= * MODLIE * & ’$01’ -= 
’NASYSLIE* :VV $0 1 ,NASIS. $0 1 
RELEASE BACKUPDD 

12* FA SI SP LI 

PROCDEF NASISPLI 
PARAM $01 

VV NASIS. SOURCE. $0 1 , SOURCE. $0 1 

EDEF XISRNAC,VP,SOURCE.LISREAC, DCB=- 

(RECFH=V,KEYLEN=7,RKP=4,LRECL=255) 

CATALOG GDG=LIST • $0 1 , 1 ,0 , Y 
EDEF PLI1IST,VS,IIST. $01 (+1) ,DCB=- 
(RECFM=V, LR ECL= 1 33) , DISP=NE« ,RET=TLU 
EDEF PLI1IB, VP, MOBILE (0) ,OPTION= J081I8 
PLI $01, (NT,M,0=2,SN= (2,72, 1) , LC*60, - 
A,X,L,E) , (NOPRINT) 

PRINT LIST. $01 (0) ,,,EEIT,Y 

RELEASE PLILIB 

RELEASE IISRHAC 

ERASE LOAD. $01 

DELETE ICAD.$01 

ERASE MAC. $01 

DELETE M AC. $0 1 

DEFAULT SYS INX=E 

RHI MODIIB (0) 

PAT $0 1+4 00 
RON 

DEFAULT SYSINX=G 

DSS? SOURCE. $01 

POD? MODLIB(O) ,Y,Y,$01 

13. SEQUENCE 


There exists (in UTXLITYS) a program called 
SEQPGP. The function of the program is to 
date stamp lines of a modified program or 
seguence number new source decks. The 
program always places the current date in 
columns 73-80 of the first line of the 
dataset. Further, it makes every line appear 
as though it were generated from a card, 
i.e., post the keyboard/cardboard indicator, 
post the length to 92, pad with blanks 
through column 72 (or truncate) and post the 
sequence field. In the update mode the 
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current date is posted in the sequence field 
of any line that is not exactly 80 characters 
long or which does not indicate a card 
origin. In the seguence mode a unique 
program ID is placed into columns 73-76 of 
each line after the first, the dataset is 
rekeyed from line 100 in increments of 100, 
and digits 2-5 of the line number are posted 
into columns 77-80 of each line. The 
following command should be executed prior to 
using the program for the first time, 

BOUTIN SEQ, SEQPARMS. 

The format for the program is, 

SEC deckname, deckid 
where: 


deckname - is the fully qualified dsnaroe 
of the dataset to be processed, 

deckid - indicates by its presence that 
the program is to run in seguence 
mode and that this 1-4 character id 
is to be posted into columns 73-76 
of all cards following the first. 


EXAMPLE: 

USER: SEC SOURCE, SEQPGM,SEQ 

SYSTEM: THE FOLLOWING LINES HAVE BEEN 

TRUNCATED - 0012000 
SYSTEM: OK. 

(at this point the user may examine 
dataset SEQ. ERROR. DATASET which will 

contain, intact, all lines indicated to 
have been truncated.) 

Module Modification Procedure 

This procedure for the modification and testing of 
the NASIS system modules is now in effect. The 
procedure covers the addition of new modules, as 
well as the modification of existing NASIS 
modules. The procedure can be logically divided 
into four phases - preparation, modification, 

testing, and insertion. 


1 


Preparation 
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The preparation phase beqins with the release 
cf the module for modification by the system 
maintenance task leader. Care most be taken 
to insure that no more than one person is 
concurrently modifying a particular module. 
Following this manual step, the source code 
for the module is copied, using the NASISIN 
procdef, from the master copy 

(NASIS. SOURCE. module) to the working copy 
(SOURCE, module) under the TSS useria 
SALISR. 

At this point the implementor should use the 
following commands to qain access to the 
module under his TSS userid: 

LOGON userid 
DELETE NASIS. SOOFCE 
SHARE NASIS. SOOFCE, SAilSR , SOURCE 
ERASE SOURCE. module 
VV NASIS. SOURCE. module, - 

SOURCE. module 

The source code for the module is now ready 
for modification by the implementor. 

Modification 

The modification phase will consist of the 
modification cf the source code by the 

implementor followed by the re-compilation or 
re-assembly of the code. All modified or new 
lines of source code should be date stamped. 
This can be accomplished using the SEQ 
proqram previously described. Preliminary 
testing cf the module will take place under 
the implementor’s userid. The commands 
necessary for re-coropilaticn are: 

DDEF LISFM AC, VP, NASIS. SOURCE. LISRWAC,- 
DC B= {RKP=4,FECFM=V,LRECL=255,- 
KEYLEN=7) 

DDEF JCBLIB,VP, joblib, CPTION= JOELIB 
PLI module, (0=02, SM= <2,72, 1) ,LC=60,- 
H,NT ,A ,L , E) 


The commands necessary for re-assembly are: 

DDEF ASMflAC,VI, ASBMAC(O) ,DISP=01D 
DDEF ASHNDX,VS,ASHNCX(0) ,DISP=0LD 
DDEF FSOURCE, VI,FSOURCE, DISP=0ID 
DDEF RINDEX , VS , RINDEX, D IS P= OLD 
DDEF JOBLIB, VP, joblib, 0PTI0N=J0BIIB 
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ASH module, Y, (RSODFCE, RINDEX, AS KHAC ,- 
ASMNDX) ,,N,N,Y,Y,N,N,Y 

It is assumed that the macro libraries have 
been properly shared before issuing the 

commands listed above* 

3. Testing 

To test the new module with the other 

components of the NASIS system, the 

implementor must gain access to the 
un-LINKEI ITed version of the system* This 
can be accomplished by the following 

commands: 

DELETE NASISLIB 

SHARE NASISLIB, SALISR,NASYSLIB 

After modifying or adding any BUILTINs, 
PROCDEFs or DEFAULTS required for the 
modified module the implementor is ready to 
test. The following DDEFs will cause the 
modules involved in the test to be loaded in 
the proper sequence.- 

DDEF NASISLIB, VP, NASISLIB(O) 
CPTICN-JCELIE 

DDEF JOBLIB,VP, ioblib, OPTION =10 BLI8 

Any new or modified messages should be 
inserted into member LISFMLF of NASYSLIB(O) 
before testing. 

4. Insertion 

When the module has been completely tested 
and debugged 1 and is ready for insertion 
into the system, the implementor should 

inform the system maintenance task leader. 
He must then give TSS userid SALISR shared 
access to the modified source code and 
indicate to system maintenance any changes in 
the BUILTINs, PROCDEFs, DEFAULTS or messages 
used by the module* 

System maintenance will then perform the 
following operations, under TSS userid 

SALISR, to insert the updated module in the 
system. 

a. Compile or assemble the module with the 
appropriate options, placing the output 
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intc MCDLIB (0) , using the NA5ISASM, 
NASISASX, or NASISPLI procdefs. 

t. After a clean compile or assembly copy 
the object module to NASYSLIB(O). 

c. Copy the new object code to 

NASIS. N1SYSLIB. 

d. Update the master copy of the source 
code. Use the NASISOUT proedef. 

e. Hake any changes necessary to the text 
of DSEFJCIN and its backup, or to the 
messaqe file and its backup, to reflect 
the new requirements of the module. 

f. Inform the implementor that he must 
erase his copy of the module source 
code. 

q. LINKEDIT the new or modified module into 
N ASISLIB (0) • This is discussed in 

Section II, Topic I of this document. 

Joining Users 

The USES JOIN procedure is to be used to join all 
users of the NASIS system. It includes all 
aspects of the system. The procedure for 
executing DSEFJCIN is as follows: 

The first time that a TSS-ID is to be JOINed, type 
in the following commands: 

1. RELEASE SYSULIE 

2. CATALOG USE PIIB ,0 ,U, NE». NASIS. S YSTEM. OSEFLI B 

3. SHARE USERLIB,$ALISR, U SEP JOIN 

4. ABEND 

The rest of the procedure is automatic. In 

addition, USEEJCIN creates a procedure called 
REJOIN which contains the above commands. 
Therefore, subsequent joins can be effected by 
simply typing REJOIN. 

NOTE : a second ABEND is prompted for, and HUST be 
entered to restore your original USEF1IB. 

The following is an example of this procedure: 


»»»» XOGCN OF HANG UP 
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LOGON SAISH3, ,24, ,X 
TSS/360 LEVEL 8,1 
ENTER PASSAGED 
XXXXXXX 

TASKID=CG6C LOGON AT 10:20 ON 10/15 
.. .RELEASE SYSULIB 

. . , CATALOG USEFLIB,U,U,NEH. NASIS. SYSTEM* USE8LIB 
..•SHAPE USERLIE,SALISR, 0 SEP JOIN 
.. .ABEND 

NASIS JOIN INITIATED. 

NASIS MESSAGES INSERTED 
NASIS PROCEDURES CREATED. 

NASIS FILES SHARED. 

NASIS JOIN COMPLETED. 

BSN=0359 

NOTE: A USERID ANALYSIS IS EEING EXECUTED 
SO THAT YOU MAY EXAMINE THE RESULTS 
OF THE JOIN PROCEDURE. 

*** T ype ABEND TO RESTORE YOUR USERLIB ♦** 

TASK EEIETED EY COMMAND 

NEW TASK LOGGED ON AT 10:32 ON 10/15/71. TASKID = 
006F 
^ ABEND 

TASK DELETED BY COMMAND 

NEN TASK LOGGED ON AT 10:33 ON 10/15/71. TASKID = 
0071 
• • • 


Reserved Datasets, Modules, and Procdefs. 

All NASIS system external names are reserved for 
those TSS-IDs loined to the system. The reserved 
procdef, builtin, synonym, default, libraries and 
dataset names can be determined by perusal of 
Appendices A, B, and C. The TSS-ID SALISR** has 
other restrictions on its datasets and procdefs 
which can be determined by perusal of Section C 
and Appendix D. 

How tc program new modules and new commands. 

In order to program new modules and/or commands to 
work in conjunction with the NASIS system, certain 
minimum requirements must be met. These are as 
follows: 

a. A workinq knowledge of TSS. 

b. A working knowledge of PL/I. 

c. A working knowledge of DBPL/I. 

d. A working knowledge of TSPL/I 
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e. A working knowledge of NASIS. 

1. Introduction 

The design of the NASIS system is such that 
special retrieval commands may be designed 
and implemented in order to extend or refine 
the system for a limited user population# 
This document will identify the steps to be 
taken to effect the addition of the new 
command# It is assumed that the design and 
implementation of the command make use of the 
capabilities of EEPAC and TS in the proper 
fashion# 

2. Implementation 

After the new command modules have been 
designed and coded, the user should define a 
job library to house the new command modules. 
Be should then share the NASIS PI/I macro 
library to obtain access to the preprocessors 
and any of the data tables that are required 
by the new command. The command may then be 
compiled# 

EXAMPLE: 

USER: SHARE NASIS. SOURCE, SALIS R, SOURCE 

(cnly once) 

USER: DEEP BYIIB, VP, HYLIE, OPTION^ JOBLIB 

USER: DEEF LISRBAC, VP, NASIS. SOURCE. LISRBAC 

CSER: Eli ACOFBAND, ... 

(supply PL/I options) 

NOTE: The last three steps should be 

repeated as many times as necessary to obtain 
an error free compilation. 

The next step is to define the command to the 
system. This can be accomplished by entering 
SYNONYM myverb=*COMBAND. 

where: 

myverb - identifies the command to be 

added. 

Specified as: a 1-8 character 

name. 

Next, assuming the command is a retrieval command, 
the user must modify the default symbol for user 
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specified retrieval commands, RETVERBS, This can 
be accomplished by entering 

DEFAULT EETVERBS= 'inyverb=mypgm * 

where: 

mypgm - identifies the entry point to be 
called when the command is 
encountered, 

Finally, the changes should be stored in the 
user's permanent profile by entering 
PROFILE • 

EXAMPLE: 

The fcllcvinq example illustrates the above 
steps as they relate to the addition of the 
1 FIELDS • command to the retrieval system, 

USER: EDIT SOURCE, R DEFIDS 

SYSTEH: 0000100 (user enters source 

statements) 


USER: _f ND 

USER: IDEE MODLIB, VP , MODLIB (0) ,OPTICN= JOBLIB 

USER: CtEF IISR MAC, VP, SOURCE. LIS FH AC 

USER: PLI RDBF1DS, (0=02, M, NT,SM= (2 ,72 , 1 ) ,- 

IC=6Q, A ,X,L,E) 

SYSTFM: (compiles the program) 

USER: BEGIN NASIS 

SYSTEH: -ENTER NASIS COMMAND: 

USER: SYNONYM FIEIDS=*COMMAND; - 

DEFAULT FETVERBS=' FIELDS=DBFLDS • ; - 
PFOFIIE • 

NOTE: At execution time the job library must 

be defined before entering the 'BEGIN NASIS* 
command, so that the modules may be properly 
loaded. 

If the modules require any prompting or 
diagnostic messaqes, these should be 
inserted into member I.ISRMLF of 
NASYSIIE (0) . 

I. LINKEDITing NASIS 

LINKEDITing NASIS is done to accomplish two goals. 
First, to improve the running speed of the system. 


I 
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Secondly, to redace the size of the object 
library, ana thus increase the loading time of the 
system* 

1* Nhen to IINKEDIT 

NASISLIE(O) is the LINKEDITed experimental 
version cf NASIS. It is usually being tested 
for approval as the new running MTT system. 
Therefore, LINKEDITing into this library 
should only be done after consulting with 
your EBA. 

2. Bow to IINKEDIT 

Frocdefs have been created to make 

LINKEDITing as automatic as possible. These 
procdefs are all listed in Section II, Topic 
E. Basically these procdefs do the 

following: 

IINKAI1 - lINKEDITs all components of 
NASIS. 

II NKMAIN - IINKEDITS only the Maintenance 
Subsystem. 

1INKOUT - is used to backup all IINKEDIT 
source and object modules. 

IINKPRNT - lINKEDITs the Batch Print 
Monitor. 

LINKREST ~ copies all miscellaneous modules 
into NASYSLIB(O). 

IINKRET - LINKEDITs the Retrieval 

Subsystem. 

LINKSOPP * LINKEDITs all support modules. 

To LINKEDIT NASIS you must: 

a. Insure that your task is in * 32-bit* 
mode. Use the SET32 procdef. 

t. Enter the appropriate LINK.... 

prccdef . 

c. Backup the results. 


EXAMPLE: 
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SEI32 
I IK FALL 

IIKKOOT NASISLIB# VP 
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APPENDIX A, 

THE tJSEFIB ANALYSIS 


LOGON TSS 


***** STANDARD USERID ANALYSIS .. (09/09/7 1) 


ISPACE 

USAGE 

SSPACB 

PBOCDEFS 

$SPACE 

BUI IT I NS 

$SPACE 

SYNONYMS 

$SPACE 

DEFAULTS 

ISPACE 

POD? USERLIB 

ISPACE 

PC? 

$SP ACE 

EDIT USERLIB (SYSHLF) 

LIST 

END 

ISPACE 

EDIT USERLIE (SYSPRO) 

_LIST 

END 

$SPACE 

POD? OS£RLIE r ¥ r Y f *ALL 

$SPACE 

DSS? 

$SPACE 
$ APPEND 

PROCDEF TELLUSER 
^EXCISE 100 , L AST 

"insert 100 

PARAM $0 1, USERID=$Q2 
PHONE $02,**** $01 **** 

_END 

TELLUSER * USERID ANALYSIS COMPLETE* 

PROCDEF TELLUSER 

EXCISE 0,LAST 

_BND 

LOGOFF 


**♦♦* • 
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APPENDIX B. 

THE USERID CREATION 


» ***** STANDARD USERID CREATION. . (09/09/7 1) ***** ' 

• * 

t * 


• **********..... .DEFINE MSG IN ZLOGON. ..«»••»«• ********** • 

PROCDEF ZLOGON 
^EXCISE 0 , LAST 
iND 

PROCDEF ZLOGON 
ZZLOGON 

DISPLAY 'USERID CREATION FAILED IN EXECUTION.' 

DISPLAY 'RE-ENTER BACK COMMAND. • 

END 

7 • 


DEFAULT LIMEN^N 
DEFAULT LINENO=N 
DEFAULT DEFBOMPT=N 

* » 

i * 


* ***** DEFINE TEMPORARY PRCCDEF ISBSHARE ,.****♦ • 

• • 


PROCDEF ISRSHARE 
PAFAH DATASET, OWNERIE 
SET 0D='OWNERID*******« 

IF SYSTCM. (8, 8) -i=0D; DELETE DATASET 
IF SYSTCM. <8, 8)-=0D;ERASE DATASET 
IF SYSTCM. (8,8)-«=0D;DELETE DATASET 
IF SYSTCM. (8,8)-*=0D;SHARE DATASET, OWNERID, DATASET 
END 






• ***** EXCISE STANDARD USERID BUILTINS ***** • 

* i 


PBOCEEF 

EUILTINS 

^EXCISE 

0, LAST 

PROCDEF 

CHECK 

EXCISE 

0 ,LAST 

PROCDEF 

CON I LIT 

EXCISE 

0, LAST 

PBOCEEF 

DEFAULTS 

— EXCISE 

0 , LAST 

PROCDEF 

DICT 

^EXCISE 

0,LAST 

PROCDEF 

DS 

EXCISE 

0 ,L AST 

PROCDEF 

EM 

— EXCISE 

0,IAST 

PROCDEF 

ITC 

^EXCISE 

0 , LAST 
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PROCDEF LOOKIE 
EXCISE 0 f LAST 
PROCDEF OWNS 
EXCISE 0, LAST 
PROCDEF PLI8 
EXCISE O f LAST 
PROCDEF PROCDEFS 
EXCISE 0, LAST 
PROCDEF PRT 
EXCISE 0 f LAST 
PROCDEF PT 
EXCISE 0 , LAST 
PROCDEF REDIT 
EXCISE 0, LAST 
PROCDEF SEQ 
EXCISE 0 r LAST 
PROCDEF SORT 
EXCISE O f L AST 
PROCDEF SYNONYMS 
_EXCISE 0 f LAST 
PROCDEF USERS 
^EXCISE 0 r L AST 
PROCDEF VI 
EXCISE 0 r LAST 
PROCDEF WHIZ 
^EXCISE 0 , L AST 


• • 
* ***** ••.DELETE POSSIBLE SYNONYMS ***** « 


SYNONYM BUILTINS= 

SYNONYM CHECK 
SYNONYM CONEDIT = 

SYNONYM DEF A0LTS= 

SYNONYM DICT 
SYNONYM DS » 

SYNONYM DM 
SYNONYM ITC 
SYNONYM LOOKIE = 

SYNONYM OWNS * 

SYNONYM PLI8 
SYNONYM PROCEEFS= 

SYNONYM PRT = 

SYNONYM PT - 

SYNONYM REDIT 
SYNONYM SEQ 
SYNONYM SORT 
SYNONYM SYN0NYMS= 

SYNONYM USERS 
SYNONYM VI 
SYNONYM WHIZ 

i • 


« 


t 
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» * * #*** * , # DEFINE STANDARD OSEBID BUILTINS 

• 

BOUTIN CHECK , TIBER 
EOIITIN CQNEDIT ,CONEDIT 
BOILTIN DICT ,CZDICE 
BOUTIN DEFAULTS, DEFAULTS 
BOUTIN DS ,DISPAF»S 

BOILTIN DM , DUHPAEHS 

BUILTIN ITC ,CZ0GTA I 1 

BOILTIN LOOKIE ,ISLAB 

BOILTIN OWNS ,OWNEP 

BOILTIN FLI8 , CFE A A8 

BOILTIN PROCDEF S , PBCCDEFS 
BOILTIN PBT , PBTPAE MS 

BOILTIN PT ,PATPARKS 

BOILTIN BEDIT f REDIT 

BOILTIN SEQ ,SECPAE«S 

BOILTIN SORT ,SRTBPKD 

BOILTIN SYNONYMS, SYNCNYMS 
BOUTIN USERS ,CZAID1E 

BOILTIN VI , VIPAFAPS 

BOILTIN HHI2 ,WHIZPAEM 

BUILTIN BOILTIN $ ,BOILTI NS 


• ***** EXCISE STANDARD OSEPID SYNONYMS 

* 

PHOCDEF E 
EXCISE 0 r LAST 
PROCDEF CAN 
^EXCISE 0, LAST 
PROCDEF CAT 
^EXCISE 0 , L AST 

PPOCDEF CON 
^EXCISE 0,LAST 

PPOCDEF COR 
EXCISE 0 r LAST 
PPOCDEF D 
^EXCISE 0, L AST 
PROCDEF DD 
^EXCISE 0 , L AST 
PROCDEF DDS 
^EXCISE 0 , LA ST 
PROCDEF DEF 
^EXCISE 0 , LAST 
PROCDEF DIE 
^EXCISE O r LAST 
PROCDEF DSS 
— EXCISE 0 , LAST 
PROCDEF ER 
^EXCISE O r LAST 
PROCDEF EX 
^EXCISE 0 f LAST 


***** * 


t 

t 

***** • 
« 



PBOCDEF 

EXP 

— EXCISE 

0,LAST 

PROCDEF 

GET 

EXCISE 

0 r LAST 

PROCDEF 

I 

EXCISE 

0,LAST 

PBOCDEF 

JBS 

— EXCISE 

0 r LAST 

PBOCDEF 

L? 

^EXCISE 

0 , LAST 

PBOCDEF 

LO 

^EXCISE 

O r LAST 

PBOCDEF 

MOD 

^EXCISE 

0 # L AST 

PBOCDEF 

NDM 

EXCISE 

0,1 AST 

PROCDEF 

OFF 

— EXCISE 

0 f L AST 

PBOCDEF 

PC 

^EXCISE 

0,LAST 

PBOCDEF 

PER 

^EXCISE 

0 , LAST 

PROCDEF 

POD 

EXCISE 

0* LAST 

PBOCDEF 

PR 

^EXCISE 

0 , L AST 

PROCDEF 

PROC 

EXCISE 

0, LAST 

PROCDEF 

PROF 

^EXCISE 

0 , L AST 

PROCDEF 

PU 

^EXCISE 

0 , LAST 

PROCDEF 

Q 

^EXCISE 

0,LAST 

PBOCDEF 

REG 

^EXCISE 

G r LAST 

PBOCDEF 

REL 

^EXCISE 

0 , LAST 

PBOCDEF 

BEH 

EXCISE 

G* LAST 

PROCDEF 

REV 

— EXCISE 

0,LAST 

PBOCDEF 

SEC 

^EXCISE 

0, LAST 

PBOCDEF 

SH 

^EXCISE 

0, LAST 

PROCDEF 

SYN 

^EXCISE 

0, LAST 

PROCDEF 

DHL 

EXCISE 

0 r L AST 

PROCDEF 

OPD 

^EXCISE 

OBLAST 

PROCDEF 

X 
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— EXCISE 

0, LAST 





PROCDEF 

XBT 





— EXCISE 
T 

0 f LAST 




9 

• 

« *****, 


USERID SYNONYMS,.. 

9 

***** « 

• 

SYNONYM 

B 

^BRANCH f C AT 

=CATALOG 



SYNONYM 

CON 

=CONTEYT r COB 

=CORRECT 

,D 

=DISPL AY 

SYNONYM 

DD 

=EDEF , DDS 

=DDNABE? 

, DEF 

=DEFAULT 

SYNONYM 

DIE 

=ABEND , DSS 

= DSS? 



SYNCNYM 

EX 

=EXECUTE fEXP 

=EXPLAIN 

, GET 

= EXCER PT 

SYNONYM 

I 

=INSEBT fJES 

=JOBLIBS 

,L? 

=LINE? 

SYNONYM 

LO 

=LOC ATE f MOD 

=MODIFY 

, NUM 

=NUMBER 

SYNONYM 

OFF 

=LOGCFF fFC 

= PC? 

, PER 

=PEFMIT 

SYNONYM 

POD 

* POD? r PR 

=PRINT 

fPROC 

=PROCDEF 

SYNONYM 

PROF 

=PROFILE fPU 

= PUNCH 

t 0 

=0UALIFY 

SYNONYM 

BEG 

= B EGION , REM 

=R EMOVE 



SYNONYM 

REV 

^REVISE f SEC 

=SECURE 

,SH 

=SHAPE 

SYNONYM 

SYN 

=S YNON YM fUNL 

=UNLOAD 

fUPD 

=UPDATE 

SYNONYM 

* 

X 

^EXCISE f XBT 

= EXHIBIT 


9 

9 

• *****, 


USERID DEFAULTS... 

9 

9 

DEFAULT 

ACCESS 

= RO 




DEFAULT 

BREVITY 

=T 




DEFAULT 

BRIEF 

= HP 




DEFAULT 

LINES 

=60 




DEFAULT 

PMDLIST 

= Y 




DEFAULT 

STORED 

= Y 




DEFAULT 

PLICPT 

=<O=02,M, NT, SM= (2, 72, 1) , LC 

= 60, A, 

X,L,E) 

DEFAULT 

PLIPACK 

= N 




DEFAULT 

PLCOPT 

= (NOPRINT) 




DEFAULT 

BA TC HO UT=* *********** , 


OUTPUT - 

SEPARATOR 

9 



9 

9 

9 ***♦*, 


USEFID PBOCDEFS . . . 

t 


i i 


PRQCDEP $SPACE 
EXCISE 0 , LAST 
PROCDEF BATCH 
EXCISE 0,LAST 
PROCDEF BATCH$$ 1 
EXCISE 0 t LAST 
PROCDEF BATCH$$2 
^EXCISE 0, LAST 
PROCDEF BATCH$$3 
_EXCISE 0 , LAST 
PROCDEF EATCH$$4 
EXCISE 0 V LAST 
PROCDEF BATCH$$5 
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_EXCTSE 0,LAST 
PBOCDEF CAN 
^EXCISE C,LAST 
PROCDEF DA 
^EXCISE Q f LAST 
PBOCDEF DEL 
_EXCISE 0, LAST 
PROCEEF DIS 
^EXCISE 0 r LAST 
PBOCDEP DP 
^EXCISE 0, LAST 
PROCDEF DUE 
EXCISE 0 , LAST 
PROCEEF EF 
EXCISE > | LAST 
PROCDEF HALT 
^EXCISE 0 r LAST 
PROCDEF ID 
^EXCISE 0, LAST 
PROCEEF LPBOC 
EXCISE OBLAST 
PROCDEF PAT 
EXCISE 0, LAST 
PROCDEF PLIT 
^EXCISE 0,IAST 
PROCEEF FEL 
^EXCISE OBLAST 
PROCDEF RENAME 
EXCISE 0,LAST 
PROCDEF FETREGS 
EXCISE 0,LAST 
PROCDEF SETREGS 
EXCISE 0 , LAST 
PBOCDEP SET 24 
EXCISE 0, LAST 
PROCDEF SET 32 
EXCISE 0,LAST 
PROCEEF 7ZLOGCN 
JEXCISE 0,LAST 


* ***♦♦ DELETE POSSIBLE SYNONYMS •.* **♦** 

« 

SYNONYM $SPACB = 

SYNCNYM BATCH 
SYNONYM BATCH$$1= 

SYNCNYM BATCH$$2= 

SYNONYM BATCH$$3= 

SYNCNYM EATCH$$4= 

SYNONYM BATCH$$5= 

SYNCNYM CAN = 

SYNONYM DA 
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SYNONYM DEI 
SYNCNYM DIS 
SYNONYM DR 
SYNONYM DUM 
SYNONYM E8 
SYNCNYM HALT 
SYNONYM ID 
SYNCNYM IPROC 
SYNONYM PAT = 

SYNCNYM PUT 
SYNONYM BEL 
SYNCNYM BEN AMI = 
SYNCNYM HETHEGS = 
SYNCNYM SETBEGS = 
SYNONYM SET24 
SYNCNYM SET32 
SYNONYM ZZLOGCN = 


• ***** DEFINE STANDARD USERID PROCDEFS 

i 

PROCDEF $ APPEN E 
END 


PROCDEF $SPACE 
PAR AM BATCHOOT-101 
DISPLAY * $C1* 

DISPLAY • $01* 

DISPLAY • $C1* 

DISPLAY 1 $0 1' 

DISPLAY ■ $C1* 

END 


i 

i 

***** • 
t 


t 




PROCEEF EATCH 
PARAM $01, $02, $03 

IF , $01 , = ,f ;DISPLAY • CANCELLEt: PROCEDURE NAME MISSING.* 

IF *$01*-*=** 6 ( f $02 *= *1 * | *$02*=*E*) ;BATCH$$4 $01, $02 
IF • $0 1 • • • ; D E F AULT E ATCHPRO=$0 1 , BATCHPRM= 

IF (*$01 f -^ ,i 5 *$03*-.= * *) ;DEFAULT BATCHPRM-* ,$03* 

IF • ;BATCH$$1 

_BND 

• i 

PROCDEF EATCHSI 1 

PARAM BATCHPRO=$01 , LI ME N=$N , LINENO= $Y 
DEFAULT LINENO=N,LIMEN=N,SYSlNY=E 
PROCDEF BATCH$$2 
REVISE 200 

EXCERPT BATCH. $01. NAMES, ,100 

END 

DEFAULT LIMEN = $N,LINEN0=$Y ,5YSINX=G 

SET EATCHBIT=0 

BATCHIS2 

IF BATCHBIT=0; ERASE EATCH. $0 1 .NAMES; SET BATCHBIT=1 
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END 

T • 

PROCDEF EATCH$$ 2 
DEFAULT BATCH$ID=- 
BATCH$$2 
BATCH$$3 
ENE 

T * 

PROCDEF E ATCH$$3 

PAN AM BATCH $ID=$ 0 1 , BATCH PR C=$02 , BATCH PR M= $03 
IF -»( # $01* = '^*END*** | *$01*=*** SKIP***) ;$02 $01$03 
IF *$G1*-.= ***END***;BATCH$$5 
IP *$01*-.= ***ENE*** ;BATCH$$1 
END 

7 • 

PBOCDEF EATCH$$4 

PARAM $01,$02,LIHEN=$1i,LINENO=$Y 
DEFAULT LIMEN=N, LINENQ=N, SYSINX=E 
IF 1 $02* = • I * ; ERASE BATCH • $0 1 . NAMES 
EDIT BATCH* $01. NAMES 

IF •$02*=*E* ; CONTE XT 100, LAST, ***END***, • **SRIP*** 

IIend 

DEFAULT SYSINX=G 

DISPLAY * ENTER THE NAMES TO BE PROCESSED.* 

EDIT BATCH. $01. NAMES 
INSERT LAST 
DEFAULT SYSINX=E 
EDIT BATCH. $01. NAMES 
♦♦END** 

END 

DEFAULT SVSINX=G,IINENC=$Y,LIHEN=$W 
— END 

« • 

PROCDEF EATCH$$5 

PAR AH BATCHPRO=$01,LIMEN=$R,LINENO=$Y 
DEFAULT LIMFN=N,LINENO=N, SYSINX=E 
EDIT BATCH. $01. NAMES 
EXCISE 100 

NUMBER 20C,IAST,10G, 100 

END 

DEFAULT LIMEN=$S,LINENC=$Y,SYSINX=G 
_END 

• * 

PROCDEF CAN 
PARAH 

$01, $02, $03, $04, $05, $06,$07,$C8,$09,$10,$11,$12,$13,$14,$15 
CANCEL $01; IF *$02*-=*';- 

CAN $02, $03, $04, $05, $06, $07, $08, $09, $10, $11, $12, $13, $14, $15 
_END 

9 9 

PROCDEF DA 
PARAM $01 
DISPLAY A ’ $0 1 * 
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END 

T * 

PROCDEF DEL 

PARAH 

$01,$02,$03,$04,$05,$06,$07,$08,$C9,$10,$11,$12,$13,$14,$15 
DELETE $0 1; IF 

DEL $02, $03, $04, $05, $06, $07, $C8, $09, $10, $11, $12, $13, $14, $15 
END 

7 « 

PROCDEF DIS 
PARAH $01, $02, $03 
SETBEGS 

DS $01, $02, $03 
END 

7 « 

PROCDEF DR 
PARAH $01, $02 

IP i$01« = h 6 • $02* = * * ;DISPLAY 0: 15R 
IF •$01'-*= ,t 5 *$02«-.= * * ;DISP1AY $01:$02R 
IF •$01 , ^=«' 6 * $02 ' = * • ; DISPLAY $01R 
IF *$01 , « ,f S *$0 2 •-»» • 1 ; DISPLAY 0:$02S 
END 

7 • 

PROCDEF DUM 
PARAH $01, $02, $03 
SETREGS 

DM $01, $02, $03 
END 

• * 

PROCDEF ER 
PARAH 

$0 1, $02, $03, $04, $05, $06, $07 ,$08, $09, $10 , $1 1,$ 12, $13, $14, $15 
ERASE $0 1; IF * $02 t -i=* • ;- 

ER $02, $03, $04, $05, $C 6, $07 , $08, $C9,$ 10, $11, $12, $13, $14, $15 
.END 

7 i 

PROCDEF HALT 

PARAH HALTADDR=$C1 ,$02, $03 

SET SAVE$$$ 1=0D,S AVE$$$2-2D, 0D=* $01 • ,2D= f 0 

t 

IF f $C1 f -.= ** 8 CD > 2D; DEFAULT HALTADDR=*$0 1 1 ; AT $01.- 
(X , 0$02 f ) ; $03; STOP 

IF CD -.> 2D; DEFA ULT HA1TADDR= • $0 1 • ; AT L* $0 1 * . (X * 0$0 2 f ) - 
$03; STOP 

SET 0D=SAVE$$$1 , 2D=SAYE$$$2 
.END 

7 « 

PROCDEF IB 
PARAH $01 

DISPLAY ID? L 1 $C 1 * 

.END 

7 • 

PROCDEF LPROC 
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PARA!! $01,PRLINE=$02,SYSINX=$G,LIBEN=$N,LINENO=$Y 
DEFAULT SYSINX=F,LIBEN=T 
IF * $02 , -^= , •; DEE AULT LINENC=N 
DISPLAY *••••••• SOI ’ 

EDIT OSERLIB (SYSPRO) 

REGION $01 

LIST 0 r LAST 
END 

DEFAULT SYSINX=$G,LIBEN=$«,LINENO=$Y 
END 

T ' 

PROCDEF PAT 
PARAM $0 1,$02,$C3 
SETFEGS 

PT $01, $02, $03 
END 

7 • 

PROCDEF PLIT 

PARAB NABE=$O1,PLIOPT=$C2,PLCOPT=$G3,SOURCEDS=$04,- 
MACRODS=$05,TCPIIB=$06 

DDEF PLILIB , VP , PLILIE,,,,, ,OLD, JOBLIB 
LOAD CFBAA 

CATALOG GDG=LIST. $0 1, 1,0, Y 

DDEF PLILIST, VS , LI ST. $01 ( 4 - 1 ) , , , , , , NEW, FET=TLU 
IF ;JCBLIBS SYSULIB 

IF * $06 •-»=* ' ; JOELIBS $06 

PLI8 NAM£=$01,PLI0PT*$02,PLCOPT=$03,SOURCEDS=$04,MACBODS=$05 

RELEASE PLILIB 

_END 

7 * 

PROCDEF REL 

PARAM 

$01, $02, $03, $04, $05, $06, $07, $08, $09, $10, $11, $12, $13, $14, $15 
RELEASE $0 1 ; IF , $02 , -»= , «;- 

REL $02, $03, $04, $05, $06, $07, $08, $09, $10, $11, $12,$13, $14, $15 
END 

7 * 

PROCDEF RENAME 

PAFAM $01, $02 

CATALOG $01,U,U,$02 

_END 

* * 

PROCDEF BETREGS 
PARAB LIHEN=$01 
DEFAULT LIMEN=W; SET 

L , 6E4*:L , 6E7»=REGS. (52 , 4) , L* 6EC* : L* 6F 3' =FEGS. (56,8) 

SET L* 6F4 f ; L * 727 * =REGS • (0,52) ;DEFAULT LIMEN=$01 
_END 

7 • 

PROCDEF SETFEGS 
PARAB LIMEN=$01 
DEFAULT LIMEN=W; - 

SET REGS. (52,4) = 1 * 6E4 : 1 * 6E7 • , REGS. (56,8) =L f 6EC* :L'6F3* 
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SET REGS. (0,52)=t , 6F4»:I«727»;DEFAUIT LIHEN=$01 

_END 

7 

PROCDEF SET 24 
SET 1 , 692 , =X«08* 

ABEND 

_END 

T 

PROCDEF SET32 
SET L«692 , =X*0A* 

ABEND 

_END 

T 

PROCDEF ZZLCGCN 

DDEF UTILITYS.VP.OTIITTYS (0) r CFTICN= JOBLIB 
JOBLIES SYSULIB 
END 


• ***** .SHARE OTILITYS DATASET...... 

« 

ISRSHASE UTILIT YS . S AUTY 
ISRSHARE PLILIB, SALISR 

• 

* ***** DELETE TEMPORARY PROCDEF ISRSHARE 

• 

PROCDEF ISRSHARE 
^EXCISE 0, LA ST 
END 

« 

« 

• ***** FINISH JOE AND LOGOFF 

• 

DEFAULT LISBN=W 
DEFAULT LINENO=Y 
DEFAULT DEPROHPT=Y 
PROFILE 

i 

PROCDEF ZLOGON 
JBXCISE 200.300 
“end 

PHONE SA LI SR. 1 USERID CREATION COMPLETE. • 

LOGOFF 


« 




* 

« 

***** i 
* 

* 

i 

***** ' 


« 

« 

***** « 
t 
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APPENDIX C* 

USEEJCIN 

♦..LISTING OF THE COMPONENTS OF THE NASIS SYSTEM USFRJOIN..* 
******** USER JOI N ZIOGQN PROCEDURE ## ******** 


PROCDEF ZIOGON 

DISPLAY • NASIS JOIN INITIATED. * 

JOIN 

RECORD 

DISPLAY • NASIS FILES SHARED.* 

RELEASE SYSULIB 
DELETE USERLIB 

CATALOG NEW. NAS IS. SYSTEM. USERLIB. U.U. USERLIB 
DISPLAY * NASIS JOIN COMPLETED.* 

DELETE THE. USERID 

SHARE THE. USERID .SA USB .THE. USERID 
EXECUTE THE. USERID. ANALYSIS 

DISPLAY 1 NOTE: A USERID ANALYSIS IS BEING EXECUTED* 
DISPLAY • SO THAT YOU MAY EXAMINE THE RESULTS* 

DISPLAY » CF THE JCIN PROCEDURE.* 

DISPLAY *♦♦♦ TYPE ABEND TO RESTORE YOUR USERLIB ♦♦** 


******* ...USERJOIN JOIN PROCEDURE. ******** 


PROCDEF JOIN 
PARAM LIMEN=$W 
DEFAULT SYS INX=E 

ERASE NEW. NASIS. SYSTEM. USERLIB (SYSPRD) 

EDIT NEW. NASIS. S YSTEM. US ERLIB (SYSMLF) 

REGION CZCDLO 03 REVISE 0 
ISA II IN $2 UNDEFINED. 

^REGION CZCDL005 ;_RE VISE 0 

ISA MODULE $1 HAS~LEVEL $2 ERRORS. 

REGION CZCDL02C ;_RE VISE 0 

ISA PROCEEDING: ENTRY POINT $01. MODULE $02 DUPLICATES ENTRY 
POINT IN MODULE $03. 

REGION CZCDL021;_REVISE 0 

ISA PROCEEDING: CSECT $01. MODULE $02 DUPLICATES A CSECT IN 
MODULE $03. 

^REGION MTTSUP0 1 ;_EXCISE 0.LAST 
^REGION MTTSUP02 EXCISE 0 . IAST 
^REGION MTTSUP0 3;_ EXCISE 0.LAST 
REGION MTTSUP04;_EXCISE O.IAST 
^REGION HTTSUP0 5;_ EXCISE O.LAST 
REGION MTTSUP06 ;__EXCISE O.LAST 
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^REGION MTTSUP07 ;_EXCISE 0,LAST 
^REGION HTTSUP08;“eXCISE 0 , LAST 
_REGION MTTS0P09 EXCISE 0,IAST 
REGION MTTSUP1Q; EXCISE 0, LAST 
^REGION J5TTSCP1 1 EXCISE 0,IAST 
“REGION HTTSTJP 12;_EXCISE G,LAST 
“REGION HTTSOP 13 EXCISE 0 f IAST 
“REGION BTTSUP 14 ; ^EXCISE 0,LAST 
“region HTTSUP1 5 ; “EXCISE 0,IAST 
“REGION HTTSOP 16;“ EXCISE 0 r L AST 
^REGION MTTSUP17;2 eXCISE 0 , LAST 
— REGION MTTSOP18;3 ex CISE 0,LAST 
“REGION «TTS0P1S;2 eXCISE 0 , LAST 
“REGION HTTSOP20;lEXCISE 0,LAST 
“REGION MTTSUP21;_EXCISE Q,IAST 
REGION HTT SOP22;“ EXCISE OBLAST 
“REGION HTTSOP 23 EXCISE 0,IAST 
“REGION HTTSOP 24 EXCISE 0, LAST 
REGION MTTSUP25;“EXCISE 0,tAST 
^REGION HTTSOP99 ;3 eXCIS I OBLAST 
END 

DISPLAY * NASIS MESSAGES INSERTED.* 

EDIT NEW. NASIS. SYS TEH. 0 SERI IB (SYSPRO) 

REGION EACKEXSF;_ EXCISE 0, LAST 
_ REGION BACKSRCH EXCISE 0,LAST 
REGION $BEGIN;_EXCISE 0,tAST 
REGION ACCOM*_EXCISE 0 r LAST ; ^INSERT 0,100 
PROCDEF ACCOH 

PARAH $01, $0 2, $03, $04, $05, $06, $07, $08, $09, $10 
IF NASISflTT-=1;CDEF 

NASISLIB, VP, NASISLIB (0) , DISP=CLD,OPTION=JOBLIB 

CALL RDBACCUK, *$01,$02,$03,$04, $05, $06, $07, $08 , $09, $10 * 

^REGION BEGIN;_EXCISE 0 , LAST;_I NSERT 0,100 

PROCDEF BEGIN 

PARAH $01 

IF NASISMTT-«=1; BDEF NASISLIB, VP, NASISLIB (0) ,OPTION= JOBLIB 

IF NASISHTT-.= 1; DDEF DEALIB, VP, DEALIB (0) ,OPTION= JOBLIB 

IF NASIS HTT-»= 1 ; LOAD NASISX; SET NASISHTT=1 

IF •$01 , =*NASIS* ; CALL NASIS1 

IF * $01 * = ’PRINTS* ; CALL NASISP 

_ REGION CANSRCH; — EXCISE 0,LAST 

“REGION COPY; — EXCISE 0 ,1 AST ;_INSEBT 0,100 

“PROCDEF COPY 

PARAH OPTION=$01 ,NAME=$02 

IF *$01*=* PROFILE* ; COPYPRO 

IF •$01* = *FORHAT* S *$02*-.= **; CCPYFHT *$02* 

IF *$01* =* STRATEGY* 6 *$02*-=**; COPYSTB '$02* 

IF ^ (*$01*^*PROFILE* \ *$01* = * FORMAT * \ * $0 1 * = * STRATEGY* ) | 
('$01'=' FORMAT* S *$02 * = **)- 

f (• $0 1 ' = * STRATEGY ' 6 *$02* = **); DISPLAY 'CANCELLED: INVALID 
OR HISSING PARAMETERS.* 

^REGION COPYFMT EXCISE 0, LAST; INSERT 0,100 
PROCDEF COPYFHT 
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PARAM REGION=$01,ONNERID=$02,CLDID=$03,NEWID=$G4 
DELETE ORIGINAL. STRATEGY. LIBRARY 

SHARE ORIGINAL. STRATEGY. LIBRARY , $02, $03. STRATEGY. LIERARY 
CDS ORIGINAL. STRATEGY. LIBRARY ( $0 1) , $04 . STRATEGY . LIBRARY 
DELETE ORIGINAL. STRATEGY. LIBRARY 
— REGION COP YPRO;_ EXCISE 0 # LAST; ^ INSERT 0,100 
“PROCDEF COPYPRC” 

PARAM OHNERID^SG 1,OLDID=$02,NEWID=$03,LIMEN=$W 
DEFAULT LIMEN=T 

DELETE ORIGINAL.PROFILE. LIERARY 

SHARE ORIGINAL. PROFILE. LIBRARY , $0 1 , NASIS. PROFILE. LIBRARY 
ERASE INTERIM. PROFILE. LIERARY 
RELEASE PROCOPY1 

DDEF PROCOPY 1,VP, INTERIM. PROFILE. LIBRARY 

CDS ORIGINAL.PROFILE. LIERARY ($02) , INTERIM. PROFILE. LIERARY 
IF *$02 , ^=* $03* ; HHIZPBC •$02«, , $03» 

RELEASE PROCOPY2 

DDEF PROCOPY2, VP, NAS IS. PROFILE. LIERARY 
CDS 

INTERIM. PROFILE. LIERARY ($03) , NASIS. PROFILE . LIBRARY, REPLACE=B 
ERASE INTERIM. PFCFIIE. LIBRARY 
RELEASE PROCOPY 2 

DELETE ORIGINAL. PROFILE. LIBRARY 
DEFAULT LIBEN=$H 

^REGION COPYSTR;_EXCISE 0 , I AST;INSERT 0,100 
PRCCDEF COPYSTB 

PARAM HEGION=$01,CRNERID=$02,OLDID=$03,NEWID~$04 
DELETE ORIGINAL. STRATEGY. LIERARY 

SHARE ORIGINAL. STRATEGY.LIERAPY,$02,$03. STRATEGY. LIBRARY 
CDS ORIGINAL. STRATEGY. LIBRARY ($0 1 ), $04. STRATEG Y. LIBRARY 
DELETE ORIGINAL. STRATEGY. LIBRARY 
^REGION $CORRECT;_ EXCISE 0,LAST 

“region delstrat ; “excise 0,IAST 

^REGION ENTER;_EXCISE 0,LAST 

“region expandT.excise 0,LAST 

_REGICN EXSEAFCH;^ EXCISE 0,LAST 
“region FIELDS;_BXCISE o/last 
“region FINISH;^ EXCISE 0,LAST 
^REGION FORMAT ;~EXCI SE 0,LAST 
“REGION GENERATE ;_EXC IS E 0,LAST 
“region GFIELDS;_EXCISE 0,IAST 
“region HEADER ; _HxCIS E 0,LAST 
“region KEEP;_EXCISE 0,IAST 
^REGION L AT LON;_ EXCISE 0,LAST 
^REGION LI M IT EXCISE 0,LAST 
“region MTTRESET ;_EXCIS E 0,LAST 
REGION NAME;__EXCISE 0,IAST 
“region NASISMTT;_EXCISE G,LAST;_INSERT 0,100 
PROCDEF NASISMTT 
PARAM $01 

IF NASISMTT-=1; DDEF NASIS1IB , VP, NASISLIB (0) , 0PTI0N=30BLIB 
IF NASIS HTT-»=1; DDEF DE ALIB, VP, DEALIB (0) ,0PTI0N— JOBLIB 
IF NASISMTT-=1; DDEF MTTLIB , VP, MTTLIE (0) ,,,,,, OLD, JC8LIB 



IF NASISMTT-*=1 ; LOAD NASIS; SET NASISHTT=1 
IF • $0 1 • = ■ * ; HTT NASIS, 50, 102,256 
REGION PAGE;_EXCISE 0,IAST 
“REGION PRTDESC;_EXCISE 0,LAST 
“REGION RECORD ;_EXCISE 0,LAST 
“REGION PRCOPIES ;_EXCISE 0, LAST; INSERT 0,100 
PROCDEF PRCOPIES 

IF CCOONT>0; PRINT LIST . STATS (0) ,PRTSP=EDIT; SET 
CCOUNT-CCOUNT-1 ;PRCOPIES 
REGION R EJO IN EXCISE 0,LAST;_INSERT 0,100 
PROCDEF REJOIN 
RELEASE SYSDLIB 

CATALOG OSERLIB, 0,0, NEW. NASIS. SYSTEM, US ERLIB 

SHARE TJSERLIB,SALISF,USERJOIN 

ABEND 

REGION REPORT EXCISE 0 , LAST ; INSERT 0,100 
PROCDEF REPORT 
PARAM COPIES=$0 1 
SET CCOONT= 1 

IF ';SET CCOUNT=$01 

IF NASISMTT-v=1;DDEF 

NASISLIB,VP,NASISLIB (0) , DISP=CLD,OPTION= JOBLIB 
CATALOG GDG=LIST. STATS, 1,0, Y 

DDEF REPORT, VS, LI ST* STATS (*1) ,DISP=NE«,RET=TLU 
CALL FDBPRNTR 
RELEASE REPORT 
PRCOPIES 

^REGION RERUN; EXCISE 0,LAST 
REGION RESTART; EXCISE 0,IAST 
“REGION REVIEW; EXCISE 0 ,LAST ;_INSERT 0,100 
PROCDEF REVIEW 

PARAM $01,SYSINX=$G,LINENO=$Y 
DEFAULT SYSINX-E,IINENC=N 
EDIT NASIS* NEWS 

IF »$01 •-*=• ' ;_REGION $01;_LIST 100,LAST 

IF *$01 , =' ' ;_IlST 

END 

DEFAULT SYSINX=$G,LINENC=$Y 
^REGION SAVE;_EXCISF 0,LAST 
“REGION SEARCH EXCISE 0,LAST 

“region select;“fxcise o,last 

^REGION SHARING ;_EXCISE 0 ,IAST;_INSEFT 0,100 
“PROCDEF SHAPING" 

PARAM MODE=$01,NASISID=$02,LIMEN=$W 
DEFAULT LIHEN=T 

IF -» ( * $Q 1 • = *ON • \ * $0 1 • = 1 OFF 1 ) | •$02*="; DISPLAY 
•CANCELLED: INVALID OR MISSING PARAMETERS* • 

IF *$01 • = # ON • S •$02 , -="; PERMIT 
$02* STRATEGY *LIERARY,*AIL,RC; - 
PERMIT NASIS. PROFILE* LIERARY,*AII,RC 
IF *$01 , = , OFF* 6 * $02*-*= * • ; PERMIT 
$02. STRATEGY. LIBRARY, *AII,R; - 
PERMIT NASIS. PROFILE* LIES ARY ,* ALL, R 
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DEFAULT LIMEN=$W 
^REGION STORE ;_EXCISE 0,IAST 
REGION STRATEGY EXCISE 0,LAST 
^REGION TITLE ; ^EXCISE 0*IAST 
“REGION USING;*IXCISE C , LAST ;_INSERT 0 r 100 
PROCDEF USING 

PARAK OWNERID=$01,OLDID=$G2*NEWID=$03 

IF (•$01* = * • | = DISPLAY * CANCELLED: INVALID OP 

MISSING PARAMETERS. 1 

IF -* ( • $01 ■ = 1 * \ *$02 , = , »); DEFAULT CWNEBID=$01; DEFAULT 
CLDID=$02; DEFAULT NEWID=$03 

IF | *$02*= * •) F. •$03 , = «»: DEFAULT NEWID=$02 

REGION WHIZ PRO EXCISE 0 , I AST ;_INSEFT 0*100 
PROCDEF WHIZPRO 
PARAM $01*$02*SYSINX=$G 
DEFAULT SYSINX=E 
WBIZ INTERIM. PROFILE. LIBRARY 
STOW C $01* $02 
RUN 

DEFAULT SYS INX=$G 

REGION ZLO GO N EXCISE C ,LAST ;_INSERT 0*100 
PROCDEF ZIOGON 
SET NASISMTT=0 
ZZLOGON 
_END 

DISPLAY • NASIS PROCEDURES CREATED. • 

ISFSHARE NASISLIB*SAIISR*NASIS1IB 

DDEF NASISLIE*VP*NASISLIB(0) * * * * * ,OLD* JOBLIB 

CALL RUSERID 

ISRSHARE HTTLIB* SALISR 

ISFSHARE NASIS. USERIDS * SADB A 

ISRSHARE DEA1IB*S ACEA 

ISRSHARE SAOWNER • DB2TDE *SADBA*SADBA.DB2TDB 

ISREUILD TRNSCT 

DEFAULT LIMEN=T 

DELETE NASIS. STATIC 

ERASE NASIS. STATIC 

DEFAULT LIHEN=$W 

DDEF NS* VI *NA SIS. STATIC *DISP= NEW 
CDS NASISLIE (0) (ST ATIC) * NASIS . STATIC 
RELEASE NS 

ISFSHARE JOINIDS*SADEA 
HODIDS 

DELETE JOINIDS 
DEFAULT SYSINX=G 


*********, • * USER JCI N RECORD PROCEDURE ********* 


PROCDEF RECORD 

PAEAM USEBID=$01*SYSINX=$E 

DEFAULT SYSINX=F 
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EDIT NEW. NASIS. SYSTEM. OSEBIIB (SYSHLF) 

_BEGION NASISVIE; EXCISE 0 f LAST;_INSEHT 0 
ISA $01 HAS BEEN JOINED TO NASIS VERSION 2.0 <12-01-72). 
END 

DEFAULT SYSINX=$E 
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APPENDIX D* 

NASIS NODDLES 

MODULE NAME LANGUAGE 


ANALYSIS 

TSS 

CREATION 

TSS 

LISRHAC 

PLI 

LISBMLF 

ENG 

MODIIB 

NON 

MTTLIE 

N/A 

NASISLIB 

N/A 

NASYSLIE 

N/A 

NASISPRO 

N/A 

NASISX 

ASM 

RCC1IST 

PLI 

RDELIST 

PLI 

RDBACCDM 

PLI 

REBATTN 

PLI 

RDBCLKN 

PLI 

RBECHNE 

PLI 

RDBCOKNT 

PLI 

RBECOBB 

PLI 

RDBDHIYE 

PLI 

FDBDSFL 

PLI 

BDBEDAC 

PLI 

RDBEDAB 

PLI 

RDBEDCM 

PLI 

RDBEECP 

PLI 

RDBEDCS 

PLI 

REEEEEE 

PLI 

BDBEDDI 

PLI 

BDEEDCL 

PLI 

BDBEDDP 

PLI 

REEEDTE 

PLI 

BDBEDFI 

PLI 

RECEDES 

PLI 

RDBEDIN 

PLI 

BDBEDIE 

PLI 

RDBEEMO 

PLI 

REBBEFA 

PLI 

RDBEDFR 

PLI 

REBEDBS 

PLI 

RDBEDFT 

PLI 

RDEEDFV 

PLI 

RDBEDSS 

PLI 

REBEESU 

PLI 

RDBEXITS 

PLI 

RDEEXFL 

PLI 

RDBEXSR 

PLI 

REEFLES 

PLI 



REEFOBM 

PLI 

RDBGENR 

PLI 

REBGFI ES 

PLI 

RDBIKDB2 

PLI 

REBINIT 

PLI 

RD8 JOIN 

PLI 

REEL ATI 

PLI 

HDBIDEK 

PLI 

PBEIIST 

PLI 

RDBLOAD 

PLI 

REBMAIN 

PLI 

RDBMEBGE 

PLI 

BCBHLF 

PLI 

RDBMNIN 

PLI 

RDEMTT 

PLI 

RDBPAC 

PLI 

REEPLINK 

ASM 

RDBPRNT 

PLI 

RDBPRNTM 

PLI 

RDBPBNTB 

PLI 

RDEPRINT 

PLI 

RDBPRC 

PLI 

RDBSETS 

PLI 

RDBSFKT 

PLI 

RCESIVRT 

PLI 

RDBSLCT 

PLI 

REESTfiT 

PLI 

RDBSTRIP 

PLI 

RDESTBT 

PLI 

RDBTIE 

ASM 

FEETSSIO 

ASM 

RDBtJPDST 

PLI 

BEEUSFF 

PLI 

RDB VERBS 

PLI 

HEEVS 

ASM 

RDB BRIT 

PLI 

BEEXPNE 

PLI 

RINEEX 

ASM 

RMTTSOP 

ASM 

RSOURCE 

ASM 

RTIHEPS 

ASM 

RTSATTN 

ASM 

RTSPBC 

ASM 

RTSSTBT 

ASM 

RTSTESTX 

ASM 

R1S0PFR 

ASM 

RTS 11X10 

ASM 

ROSERID 

ASM 

STATIC 

TSS 

TRNSC1 

TSS 

TRNSCT# 

TSS 

OSERJCIN 

TSS 

OTIIITYS 

NON 



